home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 April / 64er_Magazin_84-04_1984_Markt__Technik_de.d64 / drawline setpunk (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  52 lines
  1. 100 rem             drawline
  2. 110 rem diese routine berechnet die koordinaten
  3. 120 rem der punkte auf einer strecke, die durch
  4. 130 rem die endpunkte gegeben ist. mit einer ge-
  5. 140 rem eigneten 'setpoint'-routine kann der
  6. 150 rem bildschirm oder ein plotter angesteuert
  7. 160 rem werden. die grenzen der werte fuer x und
  8. 170 rem y entsprechen den werten fuer den hi-res
  9. 180 rem bildschirm des commodore 64.
  10. 190 rem
  11. 200 rem das original dieses programmes stammt von
  12. 210 rem mike higgins erschienen in byte 1981 im
  13. 220 rem heft 8 auf den seiten 414 - 416
  14. 230 rem
  15. 240 rem
  16. 250 input"koordinaten 1. punkt";x0,y0
  17. 260 ifx0>319ory0>199then250
  18. 270 ifx0<0ory0<0then250
  19. 280 input"koordinaten 2. punkt";x1,y1
  20. 290 ifx1>319ory1>199then280
  21. 300 ifx1<0ory1<0then280
  22. 310 rem setpar
  23. 320 s1=0:s2=1:a1=1:a2=0
  24. 330 ifx1=>x0thend1=x1-x0:goto360
  25. 340 a1=-1
  26. 350 d1=x0-x1
  27. 360 ify1=>y0thend2=y1-y0:goto390
  28. 370 d2=y0-y1
  29. 380 s2=-1
  30. 390 ifd1=>d2then470
  31. 400 n1=d1:rem vertausche d1 und d2
  32. 410 d1=d2
  33. 420 d2=n1
  34. 430 s1=a1
  35. 440 a1=0
  36. 450 a2=s2
  37. 460 s2=0
  38. 470 d3=d1/2
  39. 480 n1=1:rem schleifenzaehler
  40. 490 goto580:rem plotte ursprungspunkt
  41. 500 x0=x0+a1
  42. 510 y0=y0+a2
  43. 520 d3=d3+d2
  44. 530 n1=n1+1
  45. 540 ifd3<=d1then580
  46. 550 d3=d3-d1
  47. 560 x0=x0+s1
  48. 570 y0=y0+s2
  49. 580 printx0,y0
  50. 590 ifd1=>n1then500
  51. 600 end
  52.